home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / misc / SvII-1.lha / SViewII / SuperViewLibrary / PackerSupport / Install_Unpack next >
Text File  |  1999-02-20  |  1KB  |  47 lines
  1. ;
  2. ; $VER: Install_UnpackObject.script V2.2 (16.7.95)
  3. ; © 1994-95 by Andreas R. Kleinert.
  4. ; This is the Installer Script for my Unpack-SVObject
  5. ;
  6. ; Modified by © 1998 Dámaso D. Estévez :)
  7.  
  8. ; ------------------------------------------------------
  9.  
  10. ; English strings (default)
  11.  
  12. (set #msj1 "Library Path")
  13. (set #msj2 "Installing FastILBM24.svobject to ")
  14.  
  15. ; Spanish strings
  16.  
  17. (if (= @language "español")
  18.         (
  19.                 (set #msj1 "Seleccione el directorio donde está instalada la biblioteca 'superview.library'")
  20.                 (set #msj2 "Instalando módulo FastILBM24.svobject en ")
  21.         )
  22. )
  23.  
  24. ; ------------------------------------------------------
  25.  
  26. (set svlibdir
  27.             (askdir
  28.                    (prompt #msj1)
  29.                    (help @askdir-help)
  30.                    (newpath)
  31.                    (default "LIBS:")
  32.             )
  33. )
  34.  
  35. (makedir (tackon svlibdir "svobjects"))
  36.  
  37. (set #msj2 (cat #msj2 svlibdir "/svobjects..."))
  38.  
  39. (copyfiles
  40.   (prompt #msj2)
  41.   (help @copyfiles-help)
  42.   (source "libs/svobjects")
  43.   (dest (tackon svlibdir "svobjects"))
  44.   (pattern "#?.svobject")
  45.   (files)
  46. )
  47.